﻿Public Class Form3
    Dim anz As Decimal 'Anzahl der Zeilen

    Dim U_start As Decimal 'Startwert für U
    Dim R_Start As Decimal 'Startwert für R
    Dim I_start As Decimal 'Startwet für I
    Dim var_1 As Array     'Array für die Variable die pro Zeile erhhöht wird
    Dim var_2 As Array     'Array für die Variable die ausgerechnet wird

    Dim n As Decimal 'Wert um den der Startwert pro Zeile erhöht werden soll
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Tabellen Kopf
        TextBox3.Text = "Spannung" & "          " & "Widerstand" & "          " & "Stromstärke" & vbCrLf

        '############################################## - Kontrolle welche Variable erhöht werden soll - ##############################################
        'IF-Abfragen für die Variable die verändert werden soll
        If CheckBox1.Checked Then
            var_1(0) = U_start
        End If
        If CheckBox2.Checked Then
            var_1(0) = R_Start
        End If
        If CheckBox3.Checked Then
            var_1(0) = I_start
        End If
        '############################################## - Var_1 wird berechnet - ##############################################
        'Die Variable die verändert werden soll wird für die angegebenen Zeilen erhöht
        For i = 1 To anz
            var_1(i) = var_1(0) + n
        Next
        '############################################## - Var_2 wird berechnet - ##############################################

        If CheckBox4.Checked Then 'Wenn die Spannung konstant bleiben soll

        End If
        If CheckBox5.Checked Then 'Wenn der Widerstand konstant bleiben soll

        End If
        If CheckBox6.Checked Then 'Wenn die Stromstärke konstant bleiben soll

        End If
        '############################################## - Tabelle - ##############################################
        TextBox3.Text = TextBox3.Text
    End Sub

   
End Class